home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 6 / FM Towns Free Software Collection 6.iso / t_os / vdtwn / tvf / asmhd6 / comdhd6 / j_slow.hd6 < prev    next >
Text File  |  1993-07-08  |  3KB  |  213 lines
  1. ds_name        db    '\KOMEI\実物\TVF_PRG\J_SLOW',0
  2.  
  3. paint_wd:
  4.      SET_P dt2
  5.      SET_P dt3
  6. re_paint:
  7.      WD_CLS 0
  8.      BOX boxdt,3
  9.      MOZI mozidt
  10.      MOZI mozidt1
  11.      MOZI mozidt2
  12. be_called:
  13.      call ds_kazu
  14.      mov ax,[esi]
  15.      cmp ax,0
  16.      jne called1
  17.      mov ax,1
  18. called1:
  19.      movzx eax,ax
  20.      shl eax,11
  21.      KAKU 312,eax
  22.  
  23.      ret
  24.  
  25. mouse_in:
  26.       cmp ch,0
  27.      jne mouseck
  28.       ret
  29. di_mou:
  30.      call sub_edi
  31.      dw ?
  32. mouseck:
  33.      call di_mou
  34.      mov [edi],cx
  35.  
  36.      MOU boxdt,3
  37.  
  38.      cmp bx,1                  ;bx=1 find
  39.      je short mck1             ;ax = no
  40.      ret
  41. mck1:
  42.      call di_mou
  43.      mov cx,[edi]
  44.  
  45.      cmp ax,1
  46.      je find1    
  47.      cmp ax,2
  48.      je find2    
  49.      cmp ax,3
  50.      je find3    
  51.  
  52.      ret
  53.  
  54. cls0:
  55.      mov ah,25
  56.      mov al,2
  57.      jmp komei
  58.  
  59. find3:
  60.      cmp ch,1
  61.      je find3_1
  62.      ret
  63. find3_1:
  64.      call ds_kazu
  65.      mov ax,[esi]
  66.      movzx eax,ax
  67.      KAKU 300,eax
  68.  
  69.      CALL_P dt2
  70.      CALL_P dt3
  71.  
  72.      GAMEN 1632
  73.      mov bx,0
  74.      call cls0
  75.      
  76.      mov ah,27
  77.      call komei
  78.  
  79.      ret
  80.  
  81. ds_kazu:
  82.      call sub_esi
  83.      dw ?
  84.  
  85. find2:
  86.      call ds_kazu
  87.      mov bx,[esi]
  88.      cmp ch,2
  89.      je herasu1
  90.  
  91.      cmp bx,98
  92.      jle tasu1
  93.      ret
  94. tasu1:
  95.      inc bx
  96.      jmp kaku_kazu
  97.  
  98. herasu1:
  99.      cmp bx,1
  100.      jge herasu2
  101.      ret
  102. herasu2:
  103.      dec bx
  104.      jmp kaku_kazu
  105.  
  106. find1:
  107.      call ds_kazu
  108.      mov bx,[esi]
  109.      cmp ch,2
  110.      je herasu10
  111.  
  112.      cmp bx,89
  113.      jle tasu10
  114.      ret
  115. tasu10:
  116.      add bx,10
  117.      jmp kaku_kazu
  118.  
  119. herasu10:
  120.      cmp bx,10
  121.      jge herasu12
  122.      ret
  123. herasu12:
  124.      sub bx,10
  125. kaku_kazu:
  126.      mov [esi],bx
  127.      mov ax,bx
  128.      mov bl,10
  129.      div bl
  130.      add al,30h
  131.      add ah,30h
  132.      call mozidt2
  133.      mov 14[edi],al
  134.      mov 16[edi],ah
  135.      BOX boxdt,2
  136.      MOZI mozidt2
  137.      call kesums
  138.      ret
  139.  
  140. kesums:
  141.      M_KESUMS
  142.  
  143. look_me:
  144.      call sub_esi
  145.      dd 0,0
  146.      dw     1,0,17*8,26*2,17*10,260,15,5,0,0
  147.  
  148.  
  149.  
  150. boxdt:
  151.     call sub_edi
  152.         dw    2,10,19,67,3,18,0,12,7,0
  153.         dw    1,17*8-4,24,4,26,0,20,12,7,0
  154.  
  155.  
  156. ; [count][sz_x][sz_y][off_x][off_y][+x][+y][f_col][b_col][s_no]
  157.  
  158. mozidt:
  159.     call sub_edi
  160.            dw    0        ;screen_no
  161.            dw    1      ; mozi_color
  162.            dw    26      ; 書き出し位置  x
  163.            dw    26      ;          y
  164.            dw    10      ; next offset x
  165.            dw    0      ; next offset y
  166.     
  167.                dw   1      ; gyo suu
  168.                    db    '可変スロー  ',0
  169.                 dw 0,0
  170. mozidt1:
  171.     call sub_edi
  172.            dw    0        ;screen_no
  173.            dw    1      ; mozi_color
  174.            dw    2      ; 書き出し位置  x
  175.            dw    2      ;          y
  176.            dw    10      ; next offset x
  177.            dw    0      ; next offset y
  178.     
  179.                dw   1      ; gyo suu
  180.                    db    'ウエイト',0
  181.                 dw 0,0
  182. mozidt2:
  183.     call sub_edi
  184.            dw    0        ;screen_no
  185.            dw    1      ; mozi_color
  186.            dw    70      ; 書き出し位置  x
  187.            dw    2      ;          y
  188.            dw    10      ; next offset x
  189.            dw    0      ; next offset y
  190.     
  191.                dw   1      ; gyo suu
  192.                    db    '0 0',0
  193.                 dw 0,0
  194.  
  195.  
  196. dt3:
  197.      call sub_edi
  198.      dw     ?
  199.      db 'KOMA',0
  200. dt2:
  201.      call sub_edi
  202.      dw     ?
  203.      db 'H_DG',0
  204.  
  205. p_set:
  206.      M_P_SET
  207. p_call:
  208.  
  209.          M_P_CALL
  210.  
  211.  
  212.  
  213.